home *** CD-ROM | disk | FTP | other *** search
/ Perusromppu 2 / Perusromppu 2 - 40 suomenkielistä opetusohjelmaa.iso / perusr2 / mmlab / page_1.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-03  |  80KB  |  2,225 lines
  1. { --------------------------------------------------- }
  2. {                                                     }
  3. { Original page name :"TANGENTBORD"                   }
  4. {                                                     }
  5. { --------------------------------------------------- }
  6.  
  7. UNIT PAGE_1;
  8.  
  9. INTERFACE
  10.  
  11. USES MMLPages;
  12.  
  13. FUNCTION CreatePage : PagePtr_;
  14.  
  15. IMPLEMENTATION
  16.  
  17. USES  WinTypes,
  18.       WinProcs,
  19.  
  20.       MMLRun,
  21.       MMLDefs,
  22.       MMLCache,
  23.       MMLButtons,
  24.       MMLMCI,
  25.       MMLDlgs,
  26.       MMLOLE,
  27.  
  28.       Texts;
  29.  
  30. CONST name_Sequence_1   = 'autohΣndelse';
  31.       name_Sequence_2   = 'hΣndelse_1';
  32.       name_Sequence_3   = 'hΣndelse_2';
  33.       name_Sequence_4   = 'hΣndelse_3';
  34.       name_Sequence_5   = 'hΣndelse_4';
  35.       name_Sequence_6   = 'hΣndelse_5';
  36.       name_Sequence_7   = 'hΣndelse_6';
  37.       name_Sequence_8   = 'hΣndelse_7';
  38.       name_Sequence_9   = 'hΣndelse_8';
  39.       name_Sequence_10   = 'hΣndelse_9';
  40.       name_Sequence_11   = 'hΣndelse_10';
  41.       name_Sequence_12   = 'hΣndelse_11';
  42.       name_Sequence_13   = 'hΣndelse_12';
  43.       name_Sequence_14   = 'hΣndelse_13';
  44.       name_Sequence_15   = 'hΣndelse_14';
  45.       name_Sequence_16   = 'hΣndelse_15';
  46.       name_Sequence_17   = 'hΣndelse_16';
  47.       name_Sequence_18   = 'hΣndelse_17';
  48.       name_Sequence_19   = 'hΣndelse_18';
  49.       name_Sequence_20   = 'hΣndelse_19';
  50.       name_Sequence_21   = 'hΣndelse_21';
  51.       name_Sequence_22   = 'hΣndelse_22';
  52.       name_Sequence_23   = 'hΣndelse_23';
  53.       name_Sequence_24   = 'hΣndelse_24';
  54.       name_Sequence_25   = 'hΣndelse_25';
  55.  
  56. CONST Link_Button_1 = name_Sequence_2;
  57.       Link_Button_2 = name_Sequence_3;
  58.       Link_Button_3 = name_Sequence_4;
  59.       Link_Button_4 = name_Sequence_5;
  60.       Link_Button_5 = name_Sequence_6;
  61.       Link_Button_6 = name_Sequence_7;
  62.       Link_Button_7 = name_Sequence_8;
  63.       Link_Button_8 = name_Sequence_9;
  64.       Link_Button_9 = name_Sequence_10;
  65.       Link_Button_10 = name_Sequence_11;
  66.       Link_Button_11 = name_Sequence_12;
  67.       Link_Button_12 = name_Sequence_13;
  68.       Link_Button_13 = name_Sequence_14;
  69.       Link_Button_14 = name_Sequence_15;
  70.       Link_Button_15 = name_Sequence_16;
  71.       Link_Button_16 = name_Sequence_17;
  72.       Link_Button_17 = name_Sequence_18;
  73.       Link_Button_18 = name_Sequence_18;
  74.       Link_Button_19 = name_Sequence_19;
  75.       Link_Button_20 = name_Sequence_19;
  76.       Link_Button_21 = name_Sequence_20;
  77.       Link_Button_22 = name_Sequence_21;
  78.       Link_Button_23 = name_Sequence_22;
  79.       Link_Button_24 = name_Sequence_23;
  80.       Link_Button_25 = name_Sequence_24;
  81.       Link_Button_26 = name_Sequence_25;
  82.  
  83. { ------------------------------------------------ }
  84. { Background drawing                               }
  85. { -------------------------------------------------}
  86.  
  87. TYPE  Bk_Page_1Ptr_ = ^Bk_Page_1_;
  88.       Bk_Page_1_    = OBJECT(DrawList_)
  89.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  90.  
  91.                         PROCEDURE   CollectButtons(Buttons : ButtonsPtr_); VIRTUAL;
  92.                         PROCEDURE   Draw(DC      : HDC;
  93.                                          UpdateR : PRect;
  94.                                          Fast    : Boolean);               VIRTUAL;
  95.  
  96.                         PROCEDURE   AllocMemory;                           VIRTUAL;
  97.                       END;
  98.  
  99. DESTRUCTOR Bk_Page_1_.Kill;
  100.   BEGIN
  101.     INHERITED Kill;
  102.   END;
  103.  
  104. PROCEDURE Bk_Page_1_.CollectButtons(Buttons : ButtonsPtr_);
  105.   BEGIN
  106.     Buttons^.AddButton(143,383,171,31,Link_Button_1,EnterResponse_(2),SelectResponse_(0));
  107.     Buttons^.AddButton(66,281,30,39,Link_Button_2,EnterResponse_(2),SelectResponse_(0));
  108.     Buttons^.AddButton(130,279,276,41,Link_Button_3,EnterResponse_(2),SelectResponse_(0));
  109.     Buttons^.AddButton(407,279,23,40,Link_Button_4,EnterResponse_(2),SelectResponse_(0));
  110.     Buttons^.AddButton(428,279,24,41,Link_Button_5,EnterResponse_(2),SelectResponse_(0));
  111.     Buttons^.AddButton(454,281,22,38,Link_Button_6,EnterResponse_(2),SelectResponse_(0));
  112.     Buttons^.AddButton(412,373,76,43,Link_Button_7,EnterResponse_(2),SelectResponse_(0));
  113.     Buttons^.AddButton(488,321,98,91,Link_Button_8,EnterResponse_(2),SelectResponse_(0));
  114.     Buttons^.AddButton(408,318,23,23,Link_Button_9,EnterResponse_(2),SelectResponse_(0));
  115.     Buttons^.AddButton(434,320,22,20,Link_Button_10,EnterResponse_(2),SelectResponse_(0));
  116.     Buttons^.AddButton(458,319,26,22,Link_Button_11,EnterResponse_(2),SelectResponse_(0));
  117.     Buttons^.AddButton(410,340,24,32,Link_Button_12,EnterResponse_(2),SelectResponse_(0));
  118.     Buttons^.AddButton(435,340,22,33,Link_Button_13,EnterResponse_(2),SelectResponse_(0));
  119.     Buttons^.AddButton(457,341,25,33,Link_Button_14,EnterResponse_(2),SelectResponse_(0));
  120.     Buttons^.AddButton(360,320,41,19,Link_Button_15,EnterResponse_(2),SelectResponse_(0));
  121.     Buttons^.AddButton(372,342,34,29,Link_Button_16,EnterResponse_(2),SelectResponse_(0));
  122.     Buttons^.AddButton(346,371,61,12,Link_Button_17,EnterResponse_(2),SelectResponse_(0));
  123.     Buttons^.AddButton(53,370,50,14,Link_Button_18,EnterResponse_(2),SelectResponse_(0));
  124.     Buttons^.AddButton(372,385,40,26,Link_Button_19,EnterResponse_(2),SelectResponse_(0));
  125.     Buttons^.AddButton(50,384,40,26,Link_Button_20,EnterResponse_(2),SelectResponse_(0));
  126.     Buttons^.AddButton(98,339,250,44,Link_Button_21,EnterResponse_(2),SelectResponse_(0));
  127.     Buttons^.AddButton(59,356,34,17,Link_Button_22,EnterResponse_(2),SelectResponse_(0));
  128.     Buttons^.AddButton(60,338,31,19,Link_Button_23,EnterResponse_(2),SelectResponse_(0));
  129.     Buttons^.AddButton(107,383,41,30,Link_Button_24,EnterResponse_(2),SelectResponse_(0));
  130.     Buttons^.AddButton(315,384,32,27,Link_Button_25,EnterResponse_(2),SelectResponse_(0));
  131.     Buttons^.AddButton(89,321,269,17,Link_Button_26,EnterResponse_(2),SelectResponse_(0));
  132.   END;
  133.  
  134. PROCEDURE Bk_Page_1_.Draw(DC      : HDC;
  135.                           UpdateR : PRect;
  136.                           Fast    : Boolean);
  137.   BEGIN
  138.     DrawWMF(DC,
  139.             MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  140.             CGetMF(file_1_0_1),
  141.             159,5,322,286,
  142.             False,
  143.             False);
  144.     DrawWMF(DC,
  145.             MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  146.             CGetMF(file_1_0_2),
  147.             6,262,627,196,
  148.             False,
  149.             False);
  150.     DrawButton(DC,
  151.                143,383,171,31,
  152.                TButtonStyle(0),
  153.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  154.                colour_Blue,
  155.                colour_LightGrey,
  156.                colour_White,
  157.                colour_DarkGrey,
  158.                3,
  159.                txt_1_0_1);
  160.     DrawButton(DC,
  161.                66,281,30,39,
  162.                TButtonStyle(0),
  163.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  164.                colour_Blue,
  165.                colour_LightGrey,
  166.                colour_White,
  167.                colour_DarkGrey,
  168.                3,
  169.                txt_1_0_2);
  170.     DrawButton(DC,
  171.                130,279,276,41,
  172.                TButtonStyle(0),
  173.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  174.                colour_Blue,
  175.                colour_LightGrey,
  176.                colour_White,
  177.                colour_DarkGrey,
  178.                3,
  179.                txt_1_0_3);
  180.     DrawButton(DC,
  181.                407,279,23,40,
  182.                TButtonStyle(0),
  183.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  184.                colour_Blue,
  185.                colour_LightGrey,
  186.                colour_White,
  187.                colour_DarkGrey,
  188.                3,
  189.                txt_1_0_4);
  190.     DrawButton(DC,
  191.                428,279,24,41,
  192.                TButtonStyle(0),
  193.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  194.                colour_Blue,
  195.                colour_LightGrey,
  196.                colour_White,
  197.                colour_DarkGrey,
  198.                3,
  199.                txt_1_0_5);
  200.     DrawButton(DC,
  201.                454,281,22,38,
  202.                TButtonStyle(0),
  203.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  204.                colour_Blue,
  205.                colour_LightGrey,
  206.                colour_White,
  207.                colour_DarkGrey,
  208.                3,
  209.                txt_1_0_6);
  210.     DrawButton(DC,
  211.                412,373,76,43,
  212.                TButtonStyle(0),
  213.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  214.                colour_Blue,
  215.                colour_LightGrey,
  216.                colour_White,
  217.                colour_DarkGrey,
  218.                3,
  219.                txt_1_0_7);
  220.     DrawButton(DC,
  221.                488,321,98,91,
  222.                TButtonStyle(0),
  223.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  224.                colour_Blue,
  225.                colour_LightGrey,
  226.                colour_White,
  227.                colour_DarkGrey,
  228.                3,
  229.                txt_1_0_8);
  230.     DrawButton(DC,
  231.                408,318,23,23,
  232.                TButtonStyle(0),
  233.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  234.                colour_Blue,
  235.                colour_LightGrey,
  236.                colour_White,
  237.                colour_DarkGrey,
  238.                3,
  239.                txt_1_0_9);
  240.     DrawButton(DC,
  241.                434,320,22,20,
  242.                TButtonStyle(0),
  243.                MkLogFount(GlobalLogFount,-11,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New'),
  244.                colour_White,
  245.                colour_LightGrey,
  246.                colour_White,
  247.                colour_DarkGrey,
  248.                3,
  249.                txt_1_0_10);
  250.     DrawButton(DC,
  251.                458,319,26,22,
  252.                TButtonStyle(0),
  253.                MkLogFount(GlobalLogFount,-11,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New'),
  254.                colour_White,
  255.                colour_LightGrey,
  256.                colour_White,
  257.                colour_DarkGrey,
  258.                3,
  259.                txt_1_0_11);
  260.     DrawButton(DC,
  261.                410,340,24,32,
  262.                TButtonStyle(0),
  263.                MkLogFount(GlobalLogFount,-11,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New'),
  264.                colour_White,
  265.                colour_LightGrey,
  266.                colour_White,
  267.                colour_DarkGrey,
  268.                3,
  269.                txt_1_0_12);
  270.     DrawButton(DC,
  271.                435,340,22,33,
  272.                TButtonStyle(0),
  273.                MkLogFount(GlobalLogFount,-11,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New'),
  274.                colour_White,
  275.                colour_LightGrey,
  276.                colour_White,
  277.                colour_DarkGrey,
  278.                3,
  279.                txt_1_0_13);
  280.     DrawButton(DC,
  281.                457,341,25,33,
  282.                TButtonStyle(0),
  283.                MkLogFount(GlobalLogFount,-11,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New'),
  284.                colour_White,
  285.                colour_LightGrey,
  286.                colour_White,
  287.                colour_DarkGrey,
  288.                3,
  289.                txt_1_0_14);
  290.     DrawTextStrs(DC,
  291.                  MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  292.                  220,90,199,62,
  293.                  MkFount(GlobalFount,
  294.                          MkLogFount(GlobalLogFount,-24,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New')^,
  295.                          colour_Black,
  296.                          True,
  297.                          colour_LightGrey,
  298.                          1,
  299.                          1),
  300.                  MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  301.                  txt_1_0_15,
  302.                  2,
  303.                  colour_LightGrey,
  304.                  False);
  305.     DrawButton(DC,
  306.                360,320,41,19,
  307.                TButtonStyle(0),
  308.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  309.                colour_Blue,
  310.                colour_LightGrey,
  311.                colour_White,
  312.                colour_DarkGrey,
  313.                3,
  314.                txt_1_0_16);
  315.     DrawButton(DC,
  316.                372,342,34,29,
  317.                TButtonStyle(0),
  318.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  319.                colour_Blue,
  320.                colour_LightGrey,
  321.                colour_White,
  322.                colour_DarkGrey,
  323.                3,
  324.                txt_1_0_17);
  325.     DrawButton(DC,
  326.                346,371,61,12,
  327.                TButtonStyle(0),
  328.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  329.                colour_Blue,
  330.                colour_LightGrey,
  331.                colour_White,
  332.                colour_DarkGrey,
  333.                3,
  334.                txt_1_0_18);
  335.     DrawButton(DC,
  336.                53,370,50,14,
  337.                TButtonStyle(0),
  338.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  339.                colour_Blue,
  340.                colour_LightGrey,
  341.                colour_White,
  342.                colour_DarkGrey,
  343.                3,
  344.                txt_1_0_19);
  345.     DrawButton(DC,
  346.                372,385,40,26,
  347.                TButtonStyle(0),
  348.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  349.                colour_Blue,
  350.                colour_LightGrey,
  351.                colour_White,
  352.                colour_DarkGrey,
  353.                3,
  354.                txt_1_0_20);
  355.     DrawButton(DC,
  356.                50,384,40,26,
  357.                TButtonStyle(0),
  358.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  359.                colour_Blue,
  360.                colour_LightGrey,
  361.                colour_White,
  362.                colour_DarkGrey,
  363.                3,
  364.                txt_1_0_21);
  365.     DrawButton(DC,
  366.                98,339,250,44,
  367.                TButtonStyle(0),
  368.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  369.                colour_Blue,
  370.                colour_LightGrey,
  371.                colour_White,
  372.                colour_DarkGrey,
  373.                3,
  374.                txt_1_0_22);
  375.     DrawButton(DC,
  376.                59,356,34,17,
  377.                TButtonStyle(0),
  378.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  379.                colour_Blue,
  380.                colour_LightGrey,
  381.                colour_White,
  382.                colour_DarkGrey,
  383.                3,
  384.                txt_1_0_23);
  385.     DrawButton(DC,
  386.                60,338,31,19,
  387.                TButtonStyle(0),
  388.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  389.                colour_Blue,
  390.                colour_LightGrey,
  391.                colour_White,
  392.                colour_DarkGrey,
  393.                3,
  394.                txt_1_0_24);
  395.     DrawButton(DC,
  396.                107,383,41,30,
  397.                TButtonStyle(0),
  398.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  399.                colour_Blue,
  400.                colour_LightGrey,
  401.                colour_White,
  402.                colour_DarkGrey,
  403.                3,
  404.                txt_1_0_25);
  405.     DrawButton(DC,
  406.                315,384,32,27,
  407.                TButtonStyle(0),
  408.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  409.                colour_Blue,
  410.                colour_LightGrey,
  411.                colour_White,
  412.                colour_DarkGrey,
  413.                3,
  414.                txt_1_0_26);
  415.     DrawButton(DC,
  416.                89,321,269,17,
  417.                TButtonStyle(0),
  418.                MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
  419.                colour_Blue,
  420.                colour_LightGrey,
  421.                colour_White,
  422.                colour_DarkGrey,
  423.                3,
  424.                txt_1_0_27);
  425.   END;
  426.  
  427. PROCEDURE Bk_Page_1_.AllocMemory;
  428.   BEGIN
  429.     CGetBMP(file_1_0_1);
  430.     CGetBMP(file_1_0_2);
  431.   END;
  432.  
  433. { ------------------------------------------------------------------------ }
  434. { ------------------------------------------------------------------------ }
  435.  
  436. TYPE Sequence_1Ptr_ = ^Sequence_1_;
  437.      Sequence_1_    = OBJECT(Sequence_)
  438.                         CONSTRUCTOR Init;
  439.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  440.                         PROCEDURE   Execute(Window      : HWnd;
  441.                                             DC          : HDC;
  442.                                             Fast        : Boolean;
  443.                                             UpdateR     : PRect;
  444.                                             VAR Data    : RunData_;
  445.                                             VAR AddToBk : Boolean);         VIRTUAL;
  446.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  447.                       END;
  448.  
  449. { ------------------------------------------------------------------------ }
  450.  
  451. TYPE Sequence_2Ptr_ = ^Sequence_2_;
  452.      Sequence_2_    = OBJECT(Sequence_)
  453.                         CONSTRUCTOR Init;
  454.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  455.                         PROCEDURE   Execute(Window      : HWnd;
  456.                                             DC          : HDC;
  457.                                             Fast        : Boolean;
  458.                                             UpdateR     : PRect;
  459.                                             VAR Data    : RunData_;
  460.                                             VAR AddToBk : Boolean);         VIRTUAL;
  461.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  462.                       END;
  463.  
  464. { ------------------------------------------------------------------------ }
  465.  
  466. TYPE Sequence_3Ptr_ = ^Sequence_3_;
  467.      Sequence_3_    = OBJECT(Sequence_)
  468.                         CONSTRUCTOR Init;
  469.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  470.                         PROCEDURE   Execute(Window      : HWnd;
  471.                                             DC          : HDC;
  472.                                             Fast        : Boolean;
  473.                                             UpdateR     : PRect;
  474.                                             VAR Data    : RunData_;
  475.                                             VAR AddToBk : Boolean);         VIRTUAL;
  476.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  477.                       END;
  478.  
  479. { ------------------------------------------------------------------------ }
  480.  
  481. TYPE Sequence_4Ptr_ = ^Sequence_4_;
  482.      Sequence_4_    = OBJECT(Sequence_)
  483.                         CONSTRUCTOR Init;
  484.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  485.                         PROCEDURE   Execute(Window      : HWnd;
  486.                                             DC          : HDC;
  487.                                             Fast        : Boolean;
  488.                                             UpdateR     : PRect;
  489.                                             VAR Data    : RunData_;
  490.                                             VAR AddToBk : Boolean);         VIRTUAL;
  491.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  492.                       END;
  493.  
  494. { ------------------------------------------------------------------------ }
  495.  
  496. TYPE Sequence_5Ptr_ = ^Sequence_5_;
  497.      Sequence_5_    = OBJECT(Sequence_)
  498.                         CONSTRUCTOR Init;
  499.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  500.                         PROCEDURE   Execute(Window      : HWnd;
  501.                                             DC          : HDC;
  502.                                             Fast        : Boolean;
  503.                                             UpdateR     : PRect;
  504.                                             VAR Data    : RunData_;
  505.                                             VAR AddToBk : Boolean);         VIRTUAL;
  506.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  507.                       END;
  508.  
  509. { ------------------------------------------------------------------------ }
  510.  
  511. TYPE Sequence_6Ptr_ = ^Sequence_6_;
  512.      Sequence_6_    = OBJECT(Sequence_)
  513.                         CONSTRUCTOR Init;
  514.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  515.                         PROCEDURE   Execute(Window      : HWnd;
  516.                                             DC          : HDC;
  517.                                             Fast        : Boolean;
  518.                                             UpdateR     : PRect;
  519.                                             VAR Data    : RunData_;
  520.                                             VAR AddToBk : Boolean);         VIRTUAL;
  521.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  522.                       END;
  523.  
  524. { ------------------------------------------------------------------------ }
  525.  
  526. TYPE Sequence_7Ptr_ = ^Sequence_7_;
  527.      Sequence_7_    = OBJECT(Sequence_)
  528.                         CONSTRUCTOR Init;
  529.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  530.                         PROCEDURE   Execute(Window      : HWnd;
  531.                                             DC          : HDC;
  532.                                             Fast        : Boolean;
  533.                                             UpdateR     : PRect;
  534.                                             VAR Data    : RunData_;
  535.                                             VAR AddToBk : Boolean);         VIRTUAL;
  536.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  537.                       END;
  538.  
  539. { ------------------------------------------------------------------------ }
  540.  
  541. TYPE Sequence_8Ptr_ = ^Sequence_8_;
  542.      Sequence_8_    = OBJECT(Sequence_)
  543.                         CONSTRUCTOR Init;
  544.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  545.                         PROCEDURE   Execute(Window      : HWnd;
  546.                                             DC          : HDC;
  547.                                             Fast        : Boolean;
  548.                                             UpdateR     : PRect;
  549.                                             VAR Data    : RunData_;
  550.                                             VAR AddToBk : Boolean);         VIRTUAL;
  551.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  552.                       END;
  553.  
  554. { ------------------------------------------------------------------------ }
  555.  
  556. TYPE Sequence_9Ptr_ = ^Sequence_9_;
  557.      Sequence_9_    = OBJECT(Sequence_)
  558.                         CONSTRUCTOR Init;
  559.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  560.                         PROCEDURE   Execute(Window      : HWnd;
  561.                                             DC          : HDC;
  562.                                             Fast        : Boolean;
  563.                                             UpdateR     : PRect;
  564.                                             VAR Data    : RunData_;
  565.                                             VAR AddToBk : Boolean);         VIRTUAL;
  566.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  567.                       END;
  568.  
  569. { ------------------------------------------------------------------------ }
  570.  
  571. TYPE Sequence_10Ptr_ = ^Sequence_10_;
  572.      Sequence_10_    = OBJECT(Sequence_)
  573.                         CONSTRUCTOR Init;
  574.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  575.                         PROCEDURE   Execute(Window      : HWnd;
  576.                                             DC          : HDC;
  577.                                             Fast        : Boolean;
  578.                                             UpdateR     : PRect;
  579.                                             VAR Data    : RunData_;
  580.                                             VAR AddToBk : Boolean);         VIRTUAL;
  581.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  582.                       END;
  583.  
  584. { ------------------------------------------------------------------------ }
  585.  
  586. TYPE Sequence_11Ptr_ = ^Sequence_11_;
  587.      Sequence_11_    = OBJECT(Sequence_)
  588.                         CONSTRUCTOR Init;
  589.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  590.                         PROCEDURE   Execute(Window      : HWnd;
  591.                                             DC          : HDC;
  592.                                             Fast        : Boolean;
  593.                                             UpdateR     : PRect;
  594.                                             VAR Data    : RunData_;
  595.                                             VAR AddToBk : Boolean);         VIRTUAL;
  596.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  597.                       END;
  598.  
  599. { ------------------------------------------------------------------------ }
  600.  
  601. TYPE Sequence_12Ptr_ = ^Sequence_12_;
  602.      Sequence_12_    = OBJECT(Sequence_)
  603.                         CONSTRUCTOR Init;
  604.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  605.                         PROCEDURE   Execute(Window      : HWnd;
  606.                                             DC          : HDC;
  607.                                             Fast        : Boolean;
  608.                                             UpdateR     : PRect;
  609.                                             VAR Data    : RunData_;
  610.                                             VAR AddToBk : Boolean);         VIRTUAL;
  611.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  612.                       END;
  613.  
  614. { ------------------------------------------------------------------------ }
  615.  
  616. TYPE Sequence_13Ptr_ = ^Sequence_13_;
  617.      Sequence_13_    = OBJECT(Sequence_)
  618.                         CONSTRUCTOR Init;
  619.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  620.                         PROCEDURE   Execute(Window      : HWnd;
  621.                                             DC          : HDC;
  622.                                             Fast        : Boolean;
  623.                                             UpdateR     : PRect;
  624.                                             VAR Data    : RunData_;
  625.                                             VAR AddToBk : Boolean);         VIRTUAL;
  626.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  627.                       END;
  628.  
  629. { ------------------------------------------------------------------------ }
  630.  
  631. TYPE Sequence_14Ptr_ = ^Sequence_14_;
  632.      Sequence_14_    = OBJECT(Sequence_)
  633.                         CONSTRUCTOR Init;
  634.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  635.                         PROCEDURE   Execute(Window      : HWnd;
  636.                                             DC          : HDC;
  637.                                             Fast        : Boolean;
  638.                                             UpdateR     : PRect;
  639.                                             VAR Data    : RunData_;
  640.                                             VAR AddToBk : Boolean);         VIRTUAL;
  641.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  642.                       END;
  643.  
  644. { ------------------------------------------------------------------------ }
  645.  
  646. TYPE Sequence_15Ptr_ = ^Sequence_15_;
  647.      Sequence_15_    = OBJECT(Sequence_)
  648.                         CONSTRUCTOR Init;
  649.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  650.                         PROCEDURE   Execute(Window      : HWnd;
  651.                                             DC          : HDC;
  652.                                             Fast        : Boolean;
  653.                                             UpdateR     : PRect;
  654.                                             VAR Data    : RunData_;
  655.                                             VAR AddToBk : Boolean);         VIRTUAL;
  656.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  657.                       END;
  658.  
  659. { ------------------------------------------------------------------------ }
  660.  
  661. TYPE Sequence_16Ptr_ = ^Sequence_16_;
  662.      Sequence_16_    = OBJECT(Sequence_)
  663.                         CONSTRUCTOR Init;
  664.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  665.                         PROCEDURE   Execute(Window      : HWnd;
  666.                                             DC          : HDC;
  667.                                             Fast        : Boolean;
  668.                                             UpdateR     : PRect;
  669.                                             VAR Data    : RunData_;
  670.                                             VAR AddToBk : Boolean);         VIRTUAL;
  671.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  672.                       END;
  673.  
  674. { ------------------------------------------------------------------------ }
  675.  
  676. TYPE Sequence_17Ptr_ = ^Sequence_17_;
  677.      Sequence_17_    = OBJECT(Sequence_)
  678.                         CONSTRUCTOR Init;
  679.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  680.                         PROCEDURE   Execute(Window      : HWnd;
  681.                                             DC          : HDC;
  682.                                             Fast        : Boolean;
  683.                                             UpdateR     : PRect;
  684.                                             VAR Data    : RunData_;
  685.                                             VAR AddToBk : Boolean);         VIRTUAL;
  686.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  687.                       END;
  688.  
  689. { ------------------------------------------------------------------------ }
  690.  
  691. TYPE Sequence_18Ptr_ = ^Sequence_18_;
  692.      Sequence_18_    = OBJECT(Sequence_)
  693.                         CONSTRUCTOR Init;
  694.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  695.                         PROCEDURE   Execute(Window      : HWnd;
  696.                                             DC          : HDC;
  697.                                             Fast        : Boolean;
  698.                                             UpdateR     : PRect;
  699.                                             VAR Data    : RunData_;
  700.                                             VAR AddToBk : Boolean);         VIRTUAL;
  701.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  702.                       END;
  703.  
  704. { ------------------------------------------------------------------------ }
  705.  
  706. TYPE Sequence_19Ptr_ = ^Sequence_19_;
  707.      Sequence_19_    = OBJECT(Sequence_)
  708.                         CONSTRUCTOR Init;
  709.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  710.                         PROCEDURE   Execute(Window      : HWnd;
  711.                                             DC          : HDC;
  712.                                             Fast        : Boolean;
  713.                                             UpdateR     : PRect;
  714.                                             VAR Data    : RunData_;
  715.                                             VAR AddToBk : Boolean);         VIRTUAL;
  716.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  717.                       END;
  718.  
  719. { ------------------------------------------------------------------------ }
  720.  
  721. TYPE Sequence_20Ptr_ = ^Sequence_20_;
  722.      Sequence_20_    = OBJECT(Sequence_)
  723.                         CONSTRUCTOR Init;
  724.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  725.                         PROCEDURE   Execute(Window      : HWnd;
  726.                                             DC          : HDC;
  727.                                             Fast        : Boolean;
  728.                                             UpdateR     : PRect;
  729.                                             VAR Data    : RunData_;
  730.                                             VAR AddToBk : Boolean);         VIRTUAL;
  731.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  732.                       END;
  733.  
  734. { ------------------------------------------------------------------------ }
  735.  
  736. TYPE Sequence_21Ptr_ = ^Sequence_21_;
  737.      Sequence_21_    = OBJECT(Sequence_)
  738.                         CONSTRUCTOR Init;
  739.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  740.                         PROCEDURE   Execute(Window      : HWnd;
  741.                                             DC          : HDC;
  742.                                             Fast        : Boolean;
  743.                                             UpdateR     : PRect;
  744.                                             VAR Data    : RunData_;
  745.                                             VAR AddToBk : Boolean);         VIRTUAL;
  746.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  747.                       END;
  748.  
  749. { ------------------------------------------------------------------------ }
  750.  
  751. TYPE Sequence_22Ptr_ = ^Sequence_22_;
  752.      Sequence_22_    = OBJECT(Sequence_)
  753.                         CONSTRUCTOR Init;
  754.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  755.                         PROCEDURE   Execute(Window      : HWnd;
  756.                                             DC          : HDC;
  757.                                             Fast        : Boolean;
  758.                                             UpdateR     : PRect;
  759.                                             VAR Data    : RunData_;
  760.                                             VAR AddToBk : Boolean);         VIRTUAL;
  761.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  762.                       END;
  763.  
  764. { ------------------------------------------------------------------------ }
  765.  
  766. TYPE Sequence_23Ptr_ = ^Sequence_23_;
  767.      Sequence_23_    = OBJECT(Sequence_)
  768.                         CONSTRUCTOR Init;
  769.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  770.                         PROCEDURE   Execute(Window      : HWnd;
  771.                                             DC          : HDC;
  772.                                             Fast        : Boolean;
  773.                                             UpdateR     : PRect;
  774.                                             VAR Data    : RunData_;
  775.                                             VAR AddToBk : Boolean);         VIRTUAL;
  776.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  777.                       END;
  778.  
  779. { ------------------------------------------------------------------------ }
  780.  
  781. TYPE Sequence_24Ptr_ = ^Sequence_24_;
  782.      Sequence_24_    = OBJECT(Sequence_)
  783.                         CONSTRUCTOR Init;
  784.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  785.                         PROCEDURE   Execute(Window      : HWnd;
  786.                                             DC          : HDC;
  787.                                             Fast        : Boolean;
  788.                                             UpdateR     : PRect;
  789.                                             VAR Data    : RunData_;
  790.                                             VAR AddToBk : Boolean);         VIRTUAL;
  791.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  792.                       END;
  793.  
  794. { ------------------------------------------------------------------------ }
  795.  
  796. TYPE Sequence_25Ptr_ = ^Sequence_25_;
  797.      Sequence_25_    = OBJECT(Sequence_)
  798.                         CONSTRUCTOR Init;
  799.                         DESTRUCTOR  Kill;                                  VIRTUAL;
  800.                         PROCEDURE   Execute(Window      : HWnd;
  801.                                             DC          : HDC;
  802.                                             Fast        : Boolean;
  803.                                             UpdateR     : PRect;
  804.                                             VAR Data    : RunData_;
  805.                                             VAR AddToBk : Boolean);         VIRTUAL;
  806.                         PROCEDURE   AllocMemory;                            VIRTUAL;
  807.                       END;
  808.  
  809. { ------------------------------------------------------------------------ }
  810.  
  811. CONSTRUCTOR Sequence_1_.Init;
  812.   BEGIN
  813.     INHERITED Init(name_Sequence_1);
  814.   END;
  815.  
  816. DESTRUCTOR Sequence_1_.Kill;
  817.   BEGIN
  818.     INHERITED Kill;
  819.   END;
  820.  
  821. PROCEDURE Sequence_1_.Execute(Window      : HWnd;
  822.                               DC          : HDC;
  823.                               Fast        : Boolean;
  824.                               UpdateR     : PRect;
  825.                               VAR Data    : RunData_;
  826.                               VAR AddToBk : Boolean);
  827.  
  828.   BEGIN
  829.     CASE Data.IP OF
  830.       1: SetScreenUpdate(Data);
  831.       ELSE
  832.         Data.Status:=_Lastfunc;
  833.     END;
  834.   END;
  835.  
  836. PROCEDURE Sequence_1_.AllocMemory;
  837.   BEGIN
  838.   END;
  839.  
  840.  
  841. { ------------------------------------------------------------------------ }
  842.  
  843. CONSTRUCTOR Sequence_2_.Init;
  844.   BEGIN
  845.     INHERITED Init(name_Sequence_2);
  846.   END;
  847.  
  848. DESTRUCTOR Sequence_2_.Kill;
  849.   BEGIN
  850.     INHERITED Kill;
  851.   END;
  852.  
  853. PROCEDURE Sequence_2_.Execute(Window      : HWnd;
  854.                               DC          : HDC;
  855.                               Fast        : Boolean;
  856.                               UpdateR     : PRect;
  857.                               VAR Data    : RunData_;
  858.                               VAR AddToBk : Boolean);
  859.  
  860.   BEGIN
  861.     CASE Data.IP OF
  862.       1: BEGIN
  863.            DrawTextStrs(DC,
  864.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  865.                        262,104,115,28,
  866.                        MkFount(GlobalFount,
  867.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  868.                                colour_Yellow,
  869.                                True,
  870.                                32896,
  871.                                3,
  872.                                3),
  873.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  874.                        txt_1_2_1,
  875.                        1,
  876.                        colour_LightGrey,
  877.                        False);
  878.            SetRect(Data.RedrawR,262,104,377,132);
  879.          END;
  880.       2: BEGIN
  881.            IF (NOT Fast) THEN BEGIN
  882.              SetDelay(1,True,Data);
  883.            END;
  884.          END;
  885.  
  886.       3: SetScreenUpdate(Data);
  887.       ELSE
  888.         Data.Status:=_Lastfunc;
  889.     END;
  890.   END;
  891.  
  892. PROCEDURE Sequence_2_.AllocMemory;
  893.   BEGIN
  894.   END;
  895.  
  896.  
  897. { ------------------------------------------------------------------------ }
  898.  
  899. CONSTRUCTOR Sequence_3_.Init;
  900.   BEGIN
  901.     INHERITED Init(name_Sequence_3);
  902.   END;
  903.  
  904. DESTRUCTOR Sequence_3_.Kill;
  905.   BEGIN
  906.     INHERITED Kill;
  907.   END;
  908.  
  909. PROCEDURE Sequence_3_.Execute(Window      : HWnd;
  910.                               DC          : HDC;
  911.                               Fast        : Boolean;
  912.                               UpdateR     : PRect;
  913.                               VAR Data    : RunData_;
  914.                               VAR AddToBk : Boolean);
  915.  
  916.   BEGIN
  917.     CASE Data.IP OF
  918.       1: BEGIN
  919.            DrawTextStrs(DC,
  920.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  921.                        279,88,81,59,
  922.                        MkFount(GlobalFount,
  923.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  924.                                colour_Yellow,
  925.                                True,
  926.                                32896,
  927.                                3,
  928.                                3),
  929.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  930.                        txt_1_3_1,
  931.                        2,
  932.                        colour_LightGrey,
  933.                        False);
  934.            SetRect(Data.RedrawR,279,88,360,147);
  935.          END;
  936.       2: BEGIN
  937.            IF (NOT Fast) THEN BEGIN
  938.              SetDelay(1,True,Data);
  939.            END;
  940.          END;
  941.  
  942.       3: SetScreenUpdate(Data);
  943.       ELSE
  944.         Data.Status:=_Lastfunc;
  945.     END;
  946.   END;
  947.  
  948. PROCEDURE Sequence_3_.AllocMemory;
  949.   BEGIN
  950.   END;
  951.  
  952.  
  953. { ------------------------------------------------------------------------ }
  954.  
  955. CONSTRUCTOR Sequence_4_.Init;
  956.   BEGIN
  957.     INHERITED Init(name_Sequence_4);
  958.   END;
  959.  
  960. DESTRUCTOR Sequence_4_.Kill;
  961.   BEGIN
  962.     INHERITED Kill;
  963.   END;
  964.  
  965. PROCEDURE Sequence_4_.Execute(Window      : HWnd;
  966.                               DC          : HDC;
  967.                               Fast        : Boolean;
  968.                               UpdateR     : PRect;
  969.                               VAR Data    : RunData_;
  970.                               VAR AddToBk : Boolean);
  971.  
  972.   BEGIN
  973.     CASE Data.IP OF
  974.       1: BEGIN
  975.            DrawTextStrs(DC,
  976.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  977.                        214,88,214,78,
  978.                        MkFount(GlobalFount,
  979.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  980.                                colour_Yellow,
  981.                                True,
  982.                                32896,
  983.                                3,
  984.                                3),
  985.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  986.                        txt_1_4_1,
  987.                        2,
  988.                        colour_LightGrey,
  989.                        False);
  990.            SetRect(Data.RedrawR,214,88,428,166);
  991.          END;
  992.       2: BEGIN
  993.            IF (NOT Fast) THEN BEGIN
  994.              SetDelay(1,True,Data);
  995.            END;
  996.          END;
  997.  
  998.       3: SetScreenUpdate(Data);
  999.       ELSE
  1000.         Data.Status:=_Lastfunc;
  1001.     END;
  1002.   END;
  1003.  
  1004. PROCEDURE Sequence_4_.AllocMemory;
  1005.   BEGIN
  1006.   END;
  1007.  
  1008.  
  1009. { ------------------------------------------------------------------------ }
  1010.  
  1011. CONSTRUCTOR Sequence_5_.Init;
  1012.   BEGIN
  1013.     INHERITED Init(name_Sequence_5);
  1014.   END;
  1015.  
  1016. DESTRUCTOR Sequence_5_.Kill;
  1017.   BEGIN
  1018.     INHERITED Kill;
  1019.   END;
  1020.  
  1021. PROCEDURE Sequence_5_.Execute(Window      : HWnd;
  1022.                               DC          : HDC;
  1023.                               Fast        : Boolean;
  1024.                               UpdateR     : PRect;
  1025.                               VAR Data    : RunData_;
  1026.                               VAR AddToBk : Boolean);
  1027.  
  1028.   BEGIN
  1029.     CASE Data.IP OF
  1030.       1: BEGIN
  1031.            DrawTextStrs(DC,
  1032.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1033.                        259,104,125,28,
  1034.                        MkFount(GlobalFount,
  1035.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1036.                                colour_Yellow,
  1037.                                True,
  1038.                                32896,
  1039.                                3,
  1040.                                3),
  1041.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1042.                        txt_1_5_1,
  1043.                        1,
  1044.                        colour_LightGrey,
  1045.                        False);
  1046.            SetRect(Data.RedrawR,259,104,384,132);
  1047.          END;
  1048.       2: BEGIN
  1049.            IF (NOT Fast) THEN BEGIN
  1050.              SetDelay(1,True,Data);
  1051.            END;
  1052.          END;
  1053.  
  1054.       3: SetScreenUpdate(Data);
  1055.       ELSE
  1056.         Data.Status:=_Lastfunc;
  1057.     END;
  1058.   END;
  1059.  
  1060. PROCEDURE Sequence_5_.AllocMemory;
  1061.   BEGIN
  1062.   END;
  1063.  
  1064.  
  1065. { ------------------------------------------------------------------------ }
  1066.  
  1067. CONSTRUCTOR Sequence_6_.Init;
  1068.   BEGIN
  1069.     INHERITED Init(name_Sequence_6);
  1070.   END;
  1071.  
  1072. DESTRUCTOR Sequence_6_.Kill;
  1073.   BEGIN
  1074.     INHERITED Kill;
  1075.   END;
  1076.  
  1077. PROCEDURE Sequence_6_.Execute(Window      : HWnd;
  1078.                               DC          : HDC;
  1079.                               Fast        : Boolean;
  1080.                               UpdateR     : PRect;
  1081.                               VAR Data    : RunData_;
  1082.                               VAR AddToBk : Boolean);
  1083.  
  1084.   BEGIN
  1085.     CASE Data.IP OF
  1086.       1: BEGIN
  1087.            DrawTextStrs(DC,
  1088.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1089.                        259,107,122,28,
  1090.                        MkFount(GlobalFount,
  1091.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1092.                                colour_Yellow,
  1093.                                True,
  1094.                                32896,
  1095.                                3,
  1096.                                3),
  1097.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1098.                        txt_1_6_1,
  1099.                        1,
  1100.                        colour_LightGrey,
  1101.                        False);
  1102.            SetRect(Data.RedrawR,259,107,381,135);
  1103.          END;
  1104.       2: BEGIN
  1105.            IF (NOT Fast) THEN BEGIN
  1106.              SetDelay(1,True,Data);
  1107.            END;
  1108.          END;
  1109.  
  1110.       3: SetScreenUpdate(Data);
  1111.       ELSE
  1112.         Data.Status:=_Lastfunc;
  1113.     END;
  1114.   END;
  1115.  
  1116. PROCEDURE Sequence_6_.AllocMemory;
  1117.   BEGIN
  1118.   END;
  1119.  
  1120.  
  1121. { ------------------------------------------------------------------------ }
  1122.  
  1123. CONSTRUCTOR Sequence_7_.Init;
  1124.   BEGIN
  1125.     INHERITED Init(name_Sequence_7);
  1126.   END;
  1127.  
  1128. DESTRUCTOR Sequence_7_.Kill;
  1129.   BEGIN
  1130.     INHERITED Kill;
  1131.   END;
  1132.  
  1133. PROCEDURE Sequence_7_.Execute(Window      : HWnd;
  1134.                               DC          : HDC;
  1135.                               Fast        : Boolean;
  1136.                               UpdateR     : PRect;
  1137.                               VAR Data    : RunData_;
  1138.                               VAR AddToBk : Boolean);
  1139.  
  1140.   BEGIN
  1141.     CASE Data.IP OF
  1142.       1: BEGIN
  1143.            DrawTextStrs(DC,
  1144.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1145.                        297,109,58,28,
  1146.                        MkFount(GlobalFount,
  1147.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1148.                                colour_Yellow,
  1149.                                True,
  1150.                                32896,
  1151.                                3,
  1152.                                3),
  1153.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1154.                        txt_1_7_1,
  1155.                        1,
  1156.                        colour_LightGrey,
  1157.                        False);
  1158.            SetRect(Data.RedrawR,297,109,355,137);
  1159.          END;
  1160.       2: BEGIN
  1161.            IF (NOT Fast) THEN BEGIN
  1162.              SetDelay(1,True,Data);
  1163.            END;
  1164.          END;
  1165.  
  1166.       3: SetScreenUpdate(Data);
  1167.       ELSE
  1168.         Data.Status:=_Lastfunc;
  1169.     END;
  1170.   END;
  1171.  
  1172. PROCEDURE Sequence_7_.AllocMemory;
  1173.   BEGIN
  1174.   END;
  1175.  
  1176.  
  1177. { ------------------------------------------------------------------------ }
  1178.  
  1179. CONSTRUCTOR Sequence_8_.Init;
  1180.   BEGIN
  1181.     INHERITED Init(name_Sequence_8);
  1182.   END;
  1183.  
  1184. DESTRUCTOR Sequence_8_.Kill;
  1185.   BEGIN
  1186.     INHERITED Kill;
  1187.   END;
  1188.  
  1189. PROCEDURE Sequence_8_.Execute(Window      : HWnd;
  1190.                               DC          : HDC;
  1191.                               Fast        : Boolean;
  1192.                               UpdateR     : PRect;
  1193.                               VAR Data    : RunData_;
  1194.                               VAR AddToBk : Boolean);
  1195.  
  1196.   BEGIN
  1197.     CASE Data.IP OF
  1198.       1: BEGIN
  1199.            DrawTextStrs(DC,
  1200.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1201.                        263,108,117,30,
  1202.                        MkFount(GlobalFount,
  1203.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1204.                                colour_Yellow,
  1205.                                True,
  1206.                                32896,
  1207.                                3,
  1208.                                3),
  1209.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1210.                        txt_1_8_1,
  1211.                        1,
  1212.                        colour_LightGrey,
  1213.                        False);
  1214.            SetRect(Data.RedrawR,263,108,380,138);
  1215.          END;
  1216.       2: BEGIN
  1217.            IF (NOT Fast) THEN BEGIN
  1218.              SetDelay(1,True,Data);
  1219.            END;
  1220.          END;
  1221.  
  1222.       3: SetScreenUpdate(Data);
  1223.       ELSE
  1224.         Data.Status:=_Lastfunc;
  1225.     END;
  1226.   END;
  1227.  
  1228. PROCEDURE Sequence_8_.AllocMemory;
  1229.   BEGIN
  1230.   END;
  1231.  
  1232.  
  1233. { ------------------------------------------------------------------------ }
  1234.  
  1235. CONSTRUCTOR Sequence_9_.Init;
  1236.   BEGIN
  1237.     INHERITED Init(name_Sequence_9);
  1238.   END;
  1239.  
  1240. DESTRUCTOR Sequence_9_.Kill;
  1241.   BEGIN
  1242.     INHERITED Kill;
  1243.   END;
  1244.  
  1245. PROCEDURE Sequence_9_.Execute(Window      : HWnd;
  1246.                               DC          : HDC;
  1247.                               Fast        : Boolean;
  1248.                               UpdateR     : PRect;
  1249.                               VAR Data    : RunData_;
  1250.                               VAR AddToBk : Boolean);
  1251.  
  1252.   BEGIN
  1253.     CASE Data.IP OF
  1254.       1: BEGIN
  1255.            DrawTextStrs(DC,
  1256.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1257.                        237,90,166,54,
  1258.                        MkFount(GlobalFount,
  1259.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1260.                                colour_Yellow,
  1261.                                True,
  1262.                                32896,
  1263.                                3,
  1264.                                3),
  1265.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1266.                        txt_1_9_1,
  1267.                        1,
  1268.                        colour_LightGrey,
  1269.                        False);
  1270.            SetRect(Data.RedrawR,237,90,403,144);
  1271.          END;
  1272.       2: BEGIN
  1273.            IF (NOT Fast) THEN BEGIN
  1274.              SetDelay(1,True,Data);
  1275.            END;
  1276.          END;
  1277.  
  1278.       3: SetScreenUpdate(Data);
  1279.       ELSE
  1280.         Data.Status:=_Lastfunc;
  1281.     END;
  1282.   END;
  1283.  
  1284. PROCEDURE Sequence_9_.AllocMemory;
  1285.   BEGIN
  1286.   END;
  1287.  
  1288.  
  1289. { ------------------------------------------------------------------------ }
  1290.  
  1291. CONSTRUCTOR Sequence_10_.Init;
  1292.   BEGIN
  1293.     INHERITED Init(name_Sequence_10);
  1294.   END;
  1295.  
  1296. DESTRUCTOR Sequence_10_.Kill;
  1297.   BEGIN
  1298.     INHERITED Kill;
  1299.   END;
  1300.  
  1301. PROCEDURE Sequence_10_.Execute(Window      : HWnd;
  1302.                               DC          : HDC;
  1303.                               Fast        : Boolean;
  1304.                               UpdateR     : PRect;
  1305.                               VAR Data    : RunData_;
  1306.                               VAR AddToBk : Boolean);
  1307.  
  1308.   BEGIN
  1309.     CASE Data.IP OF
  1310.       1: BEGIN
  1311.            DrawTextStrs(DC,
  1312.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1313.                        287,108,65,30,
  1314.                        MkFount(GlobalFount,
  1315.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1316.                                colour_Yellow,
  1317.                                True,
  1318.                                32896,
  1319.                                3,
  1320.                                3),
  1321.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1322.                        txt_1_10_1,
  1323.                        1,
  1324.                        colour_LightGrey,
  1325.                        False);
  1326.            SetRect(Data.RedrawR,287,108,352,138);
  1327.          END;
  1328.       2: BEGIN
  1329.            IF (NOT Fast) THEN BEGIN
  1330.              SetDelay(1,True,Data);
  1331.            END;
  1332.          END;
  1333.  
  1334.       3: SetScreenUpdate(Data);
  1335.       ELSE
  1336.         Data.Status:=_Lastfunc;
  1337.     END;
  1338.   END;
  1339.  
  1340. PROCEDURE Sequence_10_.AllocMemory;
  1341.   BEGIN
  1342.   END;
  1343.  
  1344.  
  1345. { ------------------------------------------------------------------------ }
  1346.  
  1347. CONSTRUCTOR Sequence_11_.Init;
  1348.   BEGIN
  1349.     INHERITED Init(name_Sequence_11);
  1350.   END;
  1351.  
  1352. DESTRUCTOR Sequence_11_.Kill;
  1353.   BEGIN
  1354.     INHERITED Kill;
  1355.   END;
  1356.  
  1357. PROCEDURE Sequence_11_.Execute(Window      : HWnd;
  1358.                               DC          : HDC;
  1359.                               Fast        : Boolean;
  1360.                               UpdateR     : PRect;
  1361.                               VAR Data    : RunData_;
  1362.                               VAR AddToBk : Boolean);
  1363.  
  1364.   BEGIN
  1365.     CASE Data.IP OF
  1366.       1: BEGIN
  1367.            DrawTextStrs(DC,
  1368.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1369.                        287,108,65,30,
  1370.                        MkFount(GlobalFount,
  1371.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1372.                                colour_Yellow,
  1373.                                True,
  1374.                                32896,
  1375.                                3,
  1376.                                3),
  1377.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1378.                        txt_1_11_1,
  1379.                        1,
  1380.                        colour_LightGrey,
  1381.                        False);
  1382.            SetRect(Data.RedrawR,287,108,352,138);
  1383.          END;
  1384.       2: BEGIN
  1385.            IF (NOT Fast) THEN BEGIN
  1386.              SetDelay(1,True,Data);
  1387.            END;
  1388.          END;
  1389.  
  1390.       3: SetScreenUpdate(Data);
  1391.       ELSE
  1392.         Data.Status:=_Lastfunc;
  1393.     END;
  1394.   END;
  1395.  
  1396. PROCEDURE Sequence_11_.AllocMemory;
  1397.   BEGIN
  1398.   END;
  1399.  
  1400.  
  1401. { ------------------------------------------------------------------------ }
  1402.  
  1403. CONSTRUCTOR Sequence_12_.Init;
  1404.   BEGIN
  1405.     INHERITED Init(name_Sequence_12);
  1406.   END;
  1407.  
  1408. DESTRUCTOR Sequence_12_.Kill;
  1409.   BEGIN
  1410.     INHERITED Kill;
  1411.   END;
  1412.  
  1413. PROCEDURE Sequence_12_.Execute(Window      : HWnd;
  1414.                               DC          : HDC;
  1415.                               Fast        : Boolean;
  1416.                               UpdateR     : PRect;
  1417.                               VAR Data    : RunData_;
  1418.                               VAR AddToBk : Boolean);
  1419.  
  1420.   BEGIN
  1421.     CASE Data.IP OF
  1422.       1: BEGIN
  1423.            DrawTextStrs(DC,
  1424.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1425.                        287,108,65,30,
  1426.                        MkFount(GlobalFount,
  1427.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1428.                                colour_Yellow,
  1429.                                True,
  1430.                                32896,
  1431.                                3,
  1432.                                3),
  1433.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1434.                        txt_1_12_1,
  1435.                        1,
  1436.                        colour_LightGrey,
  1437.                        False);
  1438.            SetRect(Data.RedrawR,287,108,352,138);
  1439.          END;
  1440.       2: BEGIN
  1441.            IF (NOT Fast) THEN BEGIN
  1442.              SetDelay(1,True,Data);
  1443.            END;
  1444.          END;
  1445.  
  1446.       3: SetScreenUpdate(Data);
  1447.       ELSE
  1448.         Data.Status:=_Lastfunc;
  1449.     END;
  1450.   END;
  1451.  
  1452. PROCEDURE Sequence_12_.AllocMemory;
  1453.   BEGIN
  1454.   END;
  1455.  
  1456.  
  1457. { ------------------------------------------------------------------------ }
  1458.  
  1459. CONSTRUCTOR Sequence_13_.Init;
  1460.   BEGIN
  1461.     INHERITED Init(name_Sequence_13);
  1462.   END;
  1463.  
  1464. DESTRUCTOR Sequence_13_.Kill;
  1465.   BEGIN
  1466.     INHERITED Kill;
  1467.   END;
  1468.  
  1469. PROCEDURE Sequence_13_.Execute(Window      : HWnd;
  1470.                               DC          : HDC;
  1471.                               Fast        : Boolean;
  1472.                               UpdateR     : PRect;
  1473.                               VAR Data    : RunData_;
  1474.                               VAR AddToBk : Boolean);
  1475.  
  1476.   BEGIN
  1477.     CASE Data.IP OF
  1478.       1: BEGIN
  1479.            DrawTextStrs(DC,
  1480.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1481.                        286,108,67,30,
  1482.                        MkFount(GlobalFount,
  1483.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1484.                                colour_Yellow,
  1485.                                True,
  1486.                                32896,
  1487.                                3,
  1488.                                3),
  1489.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1490.                        txt_1_13_1,
  1491.                        1,
  1492.                        colour_LightGrey,
  1493.                        False);
  1494.            SetRect(Data.RedrawR,286,108,353,138);
  1495.          END;
  1496.       2: BEGIN
  1497.            IF (NOT Fast) THEN BEGIN
  1498.              SetDelay(1,True,Data);
  1499.            END;
  1500.          END;
  1501.  
  1502.       3: SetScreenUpdate(Data);
  1503.       ELSE
  1504.         Data.Status:=_Lastfunc;
  1505.     END;
  1506.   END;
  1507.  
  1508. PROCEDURE Sequence_13_.AllocMemory;
  1509.   BEGIN
  1510.   END;
  1511.  
  1512.  
  1513. { ------------------------------------------------------------------------ }
  1514.  
  1515. CONSTRUCTOR Sequence_14_.Init;
  1516.   BEGIN
  1517.     INHERITED Init(name_Sequence_14);
  1518.   END;
  1519.  
  1520. DESTRUCTOR Sequence_14_.Kill;
  1521.   BEGIN
  1522.     INHERITED Kill;
  1523.   END;
  1524.  
  1525. PROCEDURE Sequence_14_.Execute(Window      : HWnd;
  1526.                               DC          : HDC;
  1527.                               Fast        : Boolean;
  1528.                               UpdateR     : PRect;
  1529.                               VAR Data    : RunData_;
  1530.                               VAR AddToBk : Boolean);
  1531.  
  1532.   BEGIN
  1533.     CASE Data.IP OF
  1534.       1: BEGIN
  1535.            DrawTextStrs(DC,
  1536.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1537.                        296,108,47,30,
  1538.                        MkFount(GlobalFount,
  1539.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1540.                                colour_Yellow,
  1541.                                True,
  1542.                                32896,
  1543.                                3,
  1544.                                3),
  1545.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1546.                        txt_1_14_1,
  1547.                        1,
  1548.                        colour_LightGrey,
  1549.                        False);
  1550.            SetRect(Data.RedrawR,296,108,343,138);
  1551.          END;
  1552.       2: BEGIN
  1553.            IF (NOT Fast) THEN BEGIN
  1554.              SetDelay(1,True,Data);
  1555.            END;
  1556.          END;
  1557.  
  1558.       3: SetScreenUpdate(Data);
  1559.       ELSE
  1560.         Data.Status:=_Lastfunc;
  1561.     END;
  1562.   END;
  1563.  
  1564. PROCEDURE Sequence_14_.AllocMemory;
  1565.   BEGIN
  1566.   END;
  1567.  
  1568.  
  1569. { ------------------------------------------------------------------------ }
  1570.  
  1571. CONSTRUCTOR Sequence_15_.Init;
  1572.   BEGIN
  1573.     INHERITED Init(name_Sequence_15);
  1574.   END;
  1575.  
  1576. DESTRUCTOR Sequence_15_.Kill;
  1577.   BEGIN
  1578.     INHERITED Kill;
  1579.   END;
  1580.  
  1581. PROCEDURE Sequence_15_.Execute(Window      : HWnd;
  1582.                               DC          : HDC;
  1583.                               Fast        : Boolean;
  1584.                               UpdateR     : PRect;
  1585.                               VAR Data    : RunData_;
  1586.                               VAR AddToBk : Boolean);
  1587.  
  1588.   BEGIN
  1589.     CASE Data.IP OF
  1590.       1: BEGIN
  1591.            DrawTextStrs(DC,
  1592.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1593.                        262,108,115,30,
  1594.                        MkFount(GlobalFount,
  1595.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1596.                                colour_Yellow,
  1597.                                True,
  1598.                                32896,
  1599.                                3,
  1600.                                3),
  1601.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1602.                        txt_1_15_1,
  1603.                        1,
  1604.                        colour_LightGrey,
  1605.                        False);
  1606.            SetRect(Data.RedrawR,262,108,377,138);
  1607.          END;
  1608.       2: BEGIN
  1609.            IF (NOT Fast) THEN BEGIN
  1610.              SetDelay(1,True,Data);
  1611.            END;
  1612.          END;
  1613.  
  1614.       3: SetScreenUpdate(Data);
  1615.       ELSE
  1616.         Data.Status:=_Lastfunc;
  1617.     END;
  1618.   END;
  1619.  
  1620. PROCEDURE Sequence_15_.AllocMemory;
  1621.   BEGIN
  1622.   END;
  1623.  
  1624.  
  1625. { ------------------------------------------------------------------------ }
  1626.  
  1627. CONSTRUCTOR Sequence_16_.Init;
  1628.   BEGIN
  1629.     INHERITED Init(name_Sequence_16);
  1630.   END;
  1631.  
  1632. DESTRUCTOR Sequence_16_.Kill;
  1633.   BEGIN
  1634.     INHERITED Kill;
  1635.   END;
  1636.  
  1637. PROCEDURE Sequence_16_.Execute(Window      : HWnd;
  1638.                               DC          : HDC;
  1639.                               Fast        : Boolean;
  1640.                               UpdateR     : PRect;
  1641.                               VAR Data    : RunData_;
  1642.                               VAR AddToBk : Boolean);
  1643.  
  1644.   BEGIN
  1645.     CASE Data.IP OF
  1646.       1: BEGIN
  1647.            DrawTextStrs(DC,
  1648.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1649.                        261,108,118,30,
  1650.                        MkFount(GlobalFount,
  1651.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1652.                                colour_Yellow,
  1653.                                True,
  1654.                                32896,
  1655.                                3,
  1656.                                3),
  1657.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1658.                        txt_1_16_1,
  1659.                        1,
  1660.                        colour_LightGrey,
  1661.                        False);
  1662.            SetRect(Data.RedrawR,261,108,379,138);
  1663.          END;
  1664.       2: BEGIN
  1665.            IF (NOT Fast) THEN BEGIN
  1666.              SetDelay(1,True,Data);
  1667.            END;
  1668.          END;
  1669.  
  1670.       3: SetScreenUpdate(Data);
  1671.       ELSE
  1672.         Data.Status:=_Lastfunc;
  1673.     END;
  1674.   END;
  1675.  
  1676. PROCEDURE Sequence_16_.AllocMemory;
  1677.   BEGIN
  1678.   END;
  1679.  
  1680.  
  1681. { ------------------------------------------------------------------------ }
  1682.  
  1683. CONSTRUCTOR Sequence_17_.Init;
  1684.   BEGIN
  1685.     INHERITED Init(name_Sequence_17);
  1686.   END;
  1687.  
  1688. DESTRUCTOR Sequence_17_.Kill;
  1689.   BEGIN
  1690.     INHERITED Kill;
  1691.   END;
  1692.  
  1693. PROCEDURE Sequence_17_.Execute(Window      : HWnd;
  1694.                               DC          : HDC;
  1695.                               Fast        : Boolean;
  1696.                               UpdateR     : PRect;
  1697.                               VAR Data    : RunData_;
  1698.                               VAR AddToBk : Boolean);
  1699.  
  1700.   BEGIN
  1701.     CASE Data.IP OF
  1702.       1: BEGIN
  1703.            DrawTextStrs(DC,
  1704.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1705.                        288,108,63,30,
  1706.                        MkFount(GlobalFount,
  1707.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1708.                                colour_Yellow,
  1709.                                True,
  1710.                                32896,
  1711.                                3,
  1712.                                3),
  1713.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1714.                        txt_1_17_1,
  1715.                        1,
  1716.                        colour_LightGrey,
  1717.                        False);
  1718.            SetRect(Data.RedrawR,288,108,351,138);
  1719.          END;
  1720.       2: BEGIN
  1721.            IF (NOT Fast) THEN BEGIN
  1722.              SetDelay(1,True,Data);
  1723.            END;
  1724.          END;
  1725.  
  1726.       3: SetScreenUpdate(Data);
  1727.       ELSE
  1728.         Data.Status:=_Lastfunc;
  1729.     END;
  1730.   END;
  1731.  
  1732. PROCEDURE Sequence_17_.AllocMemory;
  1733.   BEGIN
  1734.   END;
  1735.  
  1736.  
  1737. { ------------------------------------------------------------------------ }
  1738.  
  1739. CONSTRUCTOR Sequence_18_.Init;
  1740.   BEGIN
  1741.     INHERITED Init(name_Sequence_18);
  1742.   END;
  1743.  
  1744. DESTRUCTOR Sequence_18_.Kill;
  1745.   BEGIN
  1746.     INHERITED Kill;
  1747.   END;
  1748.  
  1749. PROCEDURE Sequence_18_.Execute(Window      : HWnd;
  1750.                               DC          : HDC;
  1751.                               Fast        : Boolean;
  1752.                               UpdateR     : PRect;
  1753.                               VAR Data    : RunData_;
  1754.                               VAR AddToBk : Boolean);
  1755.  
  1756.   BEGIN
  1757.     CASE Data.IP OF
  1758.       1: BEGIN
  1759.            DrawTextStrs(DC,
  1760.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1761.                        294,108,52,30,
  1762.                        MkFount(GlobalFount,
  1763.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1764.                                colour_Yellow,
  1765.                                True,
  1766.                                32896,
  1767.                                3,
  1768.                                3),
  1769.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1770.                        txt_1_18_1,
  1771.                        1,
  1772.                        colour_LightGrey,
  1773.                        False);
  1774.            SetRect(Data.RedrawR,294,108,346,138);
  1775.          END;
  1776.       2: BEGIN
  1777.            IF (NOT Fast) THEN BEGIN
  1778.              SetDelay(1,True,Data);
  1779.            END;
  1780.          END;
  1781.  
  1782.       3: SetScreenUpdate(Data);
  1783.       ELSE
  1784.         Data.Status:=_Lastfunc;
  1785.     END;
  1786.   END;
  1787.  
  1788. PROCEDURE Sequence_18_.AllocMemory;
  1789.   BEGIN
  1790.   END;
  1791.  
  1792.  
  1793. { ------------------------------------------------------------------------ }
  1794.  
  1795. CONSTRUCTOR Sequence_19_.Init;
  1796.   BEGIN
  1797.     INHERITED Init(name_Sequence_19);
  1798.   END;
  1799.  
  1800. DESTRUCTOR Sequence_19_.Kill;
  1801.   BEGIN
  1802.     INHERITED Kill;
  1803.   END;
  1804.  
  1805. PROCEDURE Sequence_19_.Execute(Window      : HWnd;
  1806.                               DC          : HDC;
  1807.                               Fast        : Boolean;
  1808.                               UpdateR     : PRect;
  1809.                               VAR Data    : RunData_;
  1810.                               VAR AddToBk : Boolean);
  1811.  
  1812.   BEGIN
  1813.     CASE Data.IP OF
  1814.       1: BEGIN
  1815.            DrawTextStrs(DC,
  1816.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1817.                        290,108,59,30,
  1818.                        MkFount(GlobalFount,
  1819.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1820.                                colour_Yellow,
  1821.                                True,
  1822.                                32896,
  1823.                                3,
  1824.                                3),
  1825.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1826.                        txt_1_19_1,
  1827.                        1,
  1828.                        colour_LightGrey,
  1829.                        False);
  1830.            SetRect(Data.RedrawR,290,108,349,138);
  1831.          END;
  1832.       2: BEGIN
  1833.            IF (NOT Fast) THEN BEGIN
  1834.              SetDelay(1,True,Data);
  1835.            END;
  1836.          END;
  1837.  
  1838.       3: SetScreenUpdate(Data);
  1839.       ELSE
  1840.         Data.Status:=_Lastfunc;
  1841.     END;
  1842.   END;
  1843.  
  1844. PROCEDURE Sequence_19_.AllocMemory;
  1845.   BEGIN
  1846.   END;
  1847.  
  1848.  
  1849. { ------------------------------------------------------------------------ }
  1850.  
  1851. CONSTRUCTOR Sequence_20_.Init;
  1852.   BEGIN
  1853.     INHERITED Init(name_Sequence_20);
  1854.   END;
  1855.  
  1856. DESTRUCTOR Sequence_20_.Kill;
  1857.   BEGIN
  1858.     INHERITED Kill;
  1859.   END;
  1860.  
  1861. PROCEDURE Sequence_20_.Execute(Window      : HWnd;
  1862.                               DC          : HDC;
  1863.                               Fast        : Boolean;
  1864.                               UpdateR     : PRect;
  1865.                               VAR Data    : RunData_;
  1866.                               VAR AddToBk : Boolean);
  1867.  
  1868.   BEGIN
  1869.     CASE Data.IP OF
  1870.       1: BEGIN
  1871.            DrawTextStrs(DC,
  1872.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1873.                        264,102,111,31,
  1874.                        MkFount(GlobalFount,
  1875.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1876.                                colour_Yellow,
  1877.                                True,
  1878.                                32896,
  1879.                                3,
  1880.                                3),
  1881.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1882.                        txt_1_20_1,
  1883.                        1,
  1884.                        colour_LightGrey,
  1885.                        False);
  1886.            SetRect(Data.RedrawR,264,102,375,133);
  1887.          END;
  1888.       2: BEGIN
  1889.            IF (NOT Fast) THEN BEGIN
  1890.              SetDelay(1,True,Data);
  1891.            END;
  1892.          END;
  1893.  
  1894.       3: SetScreenUpdate(Data);
  1895.       ELSE
  1896.         Data.Status:=_Lastfunc;
  1897.     END;
  1898.   END;
  1899.  
  1900. PROCEDURE Sequence_20_.AllocMemory;
  1901.   BEGIN
  1902.   END;
  1903.  
  1904.  
  1905. { ------------------------------------------------------------------------ }
  1906.  
  1907. CONSTRUCTOR Sequence_21_.Init;
  1908.   BEGIN
  1909.     INHERITED Init(name_Sequence_21);
  1910.   END;
  1911.  
  1912. DESTRUCTOR Sequence_21_.Kill;
  1913.   BEGIN
  1914.     INHERITED Kill;
  1915.   END;
  1916.  
  1917. PROCEDURE Sequence_21_.Execute(Window      : HWnd;
  1918.                               DC          : HDC;
  1919.                               Fast        : Boolean;
  1920.                               UpdateR     : PRect;
  1921.                               VAR Data    : RunData_;
  1922.                               VAR AddToBk : Boolean);
  1923.  
  1924.   BEGIN
  1925.     CASE Data.IP OF
  1926.       1: BEGIN
  1927.            DrawTextStrs(DC,
  1928.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1929.                        265,108,109,30,
  1930.                        MkFount(GlobalFount,
  1931.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1932.                                colour_Yellow,
  1933.                                True,
  1934.                                32896,
  1935.                                3,
  1936.                                3),
  1937.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1938.                        txt_1_21_1,
  1939.                        1,
  1940.                        colour_LightGrey,
  1941.                        False);
  1942.            SetRect(Data.RedrawR,265,108,374,138);
  1943.          END;
  1944.       2: BEGIN
  1945.            IF (NOT Fast) THEN BEGIN
  1946.              SetDelay(1,True,Data);
  1947.            END;
  1948.          END;
  1949.  
  1950.       3: SetScreenUpdate(Data);
  1951.       ELSE
  1952.         Data.Status:=_Lastfunc;
  1953.     END;
  1954.   END;
  1955.  
  1956. PROCEDURE Sequence_21_.AllocMemory;
  1957.   BEGIN
  1958.   END;
  1959.  
  1960.  
  1961. { ------------------------------------------------------------------------ }
  1962.  
  1963. CONSTRUCTOR Sequence_22_.Init;
  1964.   BEGIN
  1965.     INHERITED Init(name_Sequence_22);
  1966.   END;
  1967.  
  1968. DESTRUCTOR Sequence_22_.Kill;
  1969.   BEGIN
  1970.     INHERITED Kill;
  1971.   END;
  1972.  
  1973. PROCEDURE Sequence_22_.Execute(Window      : HWnd;
  1974.                               DC          : HDC;
  1975.                               Fast        : Boolean;
  1976.                               UpdateR     : PRect;
  1977.                               VAR Data    : RunData_;
  1978.                               VAR AddToBk : Boolean);
  1979.  
  1980.   BEGIN
  1981.     CASE Data.IP OF
  1982.       1: BEGIN
  1983.            DrawTextStrs(DC,
  1984.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  1985.                        290,108,59,30,
  1986.                        MkFount(GlobalFount,
  1987.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  1988.                                colour_Yellow,
  1989.                                True,
  1990.                                32896,
  1991.                                3,
  1992.                                3),
  1993.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  1994.                        txt_1_22_1,
  1995.                        1,
  1996.                        colour_LightGrey,
  1997.                        False);
  1998.            SetRect(Data.RedrawR,290,108,349,138);
  1999.          END;
  2000.       2: BEGIN
  2001.            IF (NOT Fast) THEN BEGIN
  2002.              SetDelay(1,True,Data);
  2003.            END;
  2004.          END;
  2005.  
  2006.       3: SetScreenUpdate(Data);
  2007.       ELSE
  2008.         Data.Status:=_Lastfunc;
  2009.     END;
  2010.   END;
  2011.  
  2012. PROCEDURE Sequence_22_.AllocMemory;
  2013.   BEGIN
  2014.   END;
  2015.  
  2016.  
  2017. { ------------------------------------------------------------------------ }
  2018.  
  2019. CONSTRUCTOR Sequence_23_.Init;
  2020.   BEGIN
  2021.     INHERITED Init(name_Sequence_23);
  2022.   END;
  2023.  
  2024. DESTRUCTOR Sequence_23_.Kill;
  2025.   BEGIN
  2026.     INHERITED Kill;
  2027.   END;
  2028.  
  2029. PROCEDURE Sequence_23_.Execute(Window      : HWnd;
  2030.                               DC          : HDC;
  2031.                               Fast        : Boolean;
  2032.                               UpdateR     : PRect;
  2033.                               VAR Data    : RunData_;
  2034.                               VAR AddToBk : Boolean);
  2035.  
  2036.   BEGIN
  2037.     CASE Data.IP OF
  2038.       1: BEGIN
  2039.            DrawTextStrs(DC,
  2040.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  2041.                        302,108,35,30,
  2042.                        MkFount(GlobalFount,
  2043.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  2044.                                colour_Yellow,
  2045.                                True,
  2046.                                32896,
  2047.                                3,
  2048.                                3),
  2049.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  2050.                        txt_1_23_1,
  2051.                        1,
  2052.                        colour_LightGrey,
  2053.                        False);
  2054.            SetRect(Data.RedrawR,302,108,337,138);
  2055.          END;
  2056.       2: BEGIN
  2057.            IF (NOT Fast) THEN BEGIN
  2058.              SetDelay(1,True,Data);
  2059.            END;
  2060.          END;
  2061.  
  2062.       3: SetScreenUpdate(Data);
  2063.       ELSE
  2064.         Data.Status:=_Lastfunc;
  2065.     END;
  2066.   END;
  2067.  
  2068. PROCEDURE Sequence_23_.AllocMemory;
  2069.   BEGIN
  2070.   END;
  2071.  
  2072.  
  2073. { ------------------------------------------------------------------------ }
  2074.  
  2075. CONSTRUCTOR Sequence_24_.Init;
  2076.   BEGIN
  2077.     INHERITED Init(name_Sequence_24);
  2078.   END;
  2079.  
  2080. DESTRUCTOR Sequence_24_.Kill;
  2081.   BEGIN
  2082.     INHERITED Kill;
  2083.   END;
  2084.  
  2085. PROCEDURE Sequence_24_.Execute(Window      : HWnd;
  2086.                               DC          : HDC;
  2087.                               Fast        : Boolean;
  2088.                               UpdateR     : PRect;
  2089.                               VAR Data    : RunData_;
  2090.                               VAR AddToBk : Boolean);
  2091.  
  2092.   BEGIN
  2093.     CASE Data.IP OF
  2094.       1: BEGIN
  2095.            DrawTextStrs(DC,
  2096.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  2097.                        286,108,67,30,
  2098.                        MkFount(GlobalFount,
  2099.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  2100.                                colour_Yellow,
  2101.                                True,
  2102.                                32896,
  2103.                                3,
  2104.                                3),
  2105.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  2106.                        txt_1_24_1,
  2107.                        1,
  2108.                        colour_LightGrey,
  2109.                        False);
  2110.            SetRect(Data.RedrawR,286,108,353,138);
  2111.          END;
  2112.       2: BEGIN
  2113.            IF (NOT Fast) THEN BEGIN
  2114.              SetDelay(1,True,Data);
  2115.            END;
  2116.          END;
  2117.  
  2118.       3: SetScreenUpdate(Data);
  2119.       ELSE
  2120.         Data.Status:=_Lastfunc;
  2121.     END;
  2122.   END;
  2123.  
  2124. PROCEDURE Sequence_24_.AllocMemory;
  2125.   BEGIN
  2126.   END;
  2127.  
  2128.  
  2129. { ------------------------------------------------------------------------ }
  2130.  
  2131. CONSTRUCTOR Sequence_25_.Init;
  2132.   BEGIN
  2133.     INHERITED Init(name_Sequence_25);
  2134.   END;
  2135.  
  2136. DESTRUCTOR Sequence_25_.Kill;
  2137.   BEGIN
  2138.     INHERITED Kill;
  2139.   END;
  2140.  
  2141. PROCEDURE Sequence_25_.Execute(Window      : HWnd;
  2142.                               DC          : HDC;
  2143.                               Fast        : Boolean;
  2144.                               UpdateR     : PRect;
  2145.                               VAR Data    : RunData_;
  2146.                               VAR AddToBk : Boolean);
  2147.  
  2148.   BEGIN
  2149.     CASE Data.IP OF
  2150.       1: BEGIN
  2151.            DrawTextStrs(DC,
  2152.                        MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
  2153.                        285,107,70,30,
  2154.                        MkFount(GlobalFount,
  2155.                                MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
  2156.                                colour_Yellow,
  2157.                                True,
  2158.                                32896,
  2159.                                3,
  2160.                                3),
  2161.                        MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
  2162.                        txt_1_25_1,
  2163.                        1,
  2164.                        colour_LightGrey,
  2165.                        False);
  2166.            SetRect(Data.RedrawR,285,107,355,137);
  2167.          END;
  2168.       2: BEGIN
  2169.            IF (NOT Fast) THEN BEGIN
  2170.              SetDelay(1,True,Data);
  2171.            END;
  2172.          END;
  2173.  
  2174.       3: SetScreenUpdate(Data);
  2175.       ELSE
  2176.         Data.Status:=_Lastfunc;
  2177.     END;
  2178.   END;
  2179.  
  2180. PROCEDURE Sequence_25_.AllocMemory;
  2181.   BEGIN
  2182.   END;
  2183.  
  2184.  
  2185. { ------------------------------------------------------------------------ }
  2186.  
  2187. { ------------------------------------------------------------------------ }
  2188. { ------------------------------------------------------------------------ }
  2189.  
  2190. FUNCTION CreatePage : PagePtr_;
  2191.   VAR Page : PagePtr_;
  2192.  
  2193.   BEGIN
  2194.     New(Page,Init(name_Page_1,New(Bk_Page_1Ptr_,Init)));
  2195.     Page^.AddSeq(New(Sequence_1Ptr_,Init));
  2196.     Page^.AddSeq(New(Sequence_2Ptr_,Init));
  2197.     Page^.AddSeq(New(Sequence_3Ptr_,Init));
  2198.     Page^.AddSeq(New(Sequence_4Ptr_,Init));
  2199.     Page^.AddSeq(New(Sequence_5Ptr_,Init));
  2200.     Page^.AddSeq(New(Sequence_6Ptr_,Init));
  2201.     Page^.AddSeq(New(Sequence_7Ptr_,Init));
  2202.     Page^.AddSeq(New(Sequence_8Ptr_,Init));
  2203.     Page^.AddSeq(New(Sequence_9Ptr_,Init));
  2204.     Page^.AddSeq(New(Sequence_10Ptr_,Init));
  2205.     Page^.AddSeq(New(Sequence_11Ptr_,Init));
  2206.     Page^.AddSeq(New(Sequence_12Ptr_,Init));
  2207.     Page^.AddSeq(New(Sequence_13Ptr_,Init));
  2208.     Page^.AddSeq(New(Sequence_14Ptr_,Init));
  2209.     Page^.AddSeq(New(Sequence_15Ptr_,Init));
  2210.     Page^.AddSeq(New(Sequence_16Ptr_,Init));
  2211.     Page^.AddSeq(New(Sequence_17Ptr_,Init));
  2212.     Page^.AddSeq(New(Sequence_18Ptr_,Init));
  2213.     Page^.AddSeq(New(Sequence_19Ptr_,Init));
  2214.     Page^.AddSeq(New(Sequence_20Ptr_,Init));
  2215.     Page^.AddSeq(New(Sequence_21Ptr_,Init));
  2216.     Page^.AddSeq(New(Sequence_22Ptr_,Init));
  2217.     Page^.AddSeq(New(Sequence_23Ptr_,Init));
  2218.     Page^.AddSeq(New(Sequence_24Ptr_,Init));
  2219.     Page^.AddSeq(New(Sequence_25Ptr_,Init));
  2220.  
  2221.     CreatePage:=Page;
  2222.   END;
  2223.  
  2224. END.
  2225.